1 REM SOUND EFFECTS
2 REM GUNSHOT (VIC VERSION)
10 GOSUB 900:GOTO 100
20 POKE FR(0),0:POKE FR(1),0:POKE FR(2),0:POKE FR(3),115
30 POKE VL,15:PRINT "."
45 FOR I=15 TO 0 STEP -1:POKE VL,I:POKE FR(3),P(70+3*I):NEXT
60 FOR I=0 TO 2:POKE FR(I),0:NEXT
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT";
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 DIM FR(3),P(127)
910 FR(0)=36874:FOR I=1 TO 3:FR(I)=FR(I-1)+1:NEXT
920 FOR I=0 TO 127:P(I)=I+128:NEXT
929 REM SET VOLUME ADDRESS
930 VL=36878
990 RETURN